home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.03 Mar 91 / PICS Code / PICS Player.r < prev    next >
Encoding:
Text File  |  1990-12-05  |  3.9 KB  |  129 lines  |  [TEXT/AOqc]
  1. /*------------------------------------------------------------------------------
  2. #
  3. #    PICS Animator Resource Source
  4. #
  5. #    Steve Sheets
  6. #
  7. ------------------------------------------------------------------------------*/
  8.  
  9. #include "Types.r"
  10.  
  11. #include "SysTypes.r"
  12.  
  13. type 'PcPl' as 'STR ';
  14.  
  15. resource 'PcPl' (0) {
  16.     "PICS Player 1.0, © Steve Sheets." };
  17.  
  18. resource 'vers' (1) {
  19.     0x1, 0x0, 0x0, -0x80, verUs, "1.0", "1.0, © 1990 Steve Sheets." };
  20.  
  21. resource 'vers' (2) {
  22.     0x1, 0x0, 0x0, -0x80, verUs, "1.0", "PICS Player 1.0" };
  23.  
  24. resource 'BNDL' (128) {
  25.     'PcPl', 0,
  26.     {    'ICN#', { 0, 128, 1, 129 },
  27.         'FREF', { 0, 128, 1, 129 }    }    };
  28.  
  29. resource 'ICN#' (128) {
  30.     {    $"FFE0 0000 8030 0000 8010 0000 9FFC 0000"
  31.         $"9006 0000 9002 0000 93FF 8000 9200 C000"
  32.         $"9200 4000 927F F000 9240 1800 9240 1400"
  33.         $"9248 3F00 9248 4080 9248 8040 9249 3020"
  34.         $"924B C810 F24E 7F8F 1242 3007 1241 0007"
  35.         $"1E40 8007 0242 6007 0245 1FE7 03C8 811F"
  36.         $"005F C107 0040 0100 007F FF",
  37.  
  38.         $"FFE0 0000 FFF0 0000 FFF0 0000 FFFC 0000"
  39.         $"FFFE 0000 FFFE 0000 FFFF 8000 FFFF C000"
  40.         $"FFFF C000 FFFF F000 FFFF F800 FFFF FC00"
  41.         $"FFFF FF00 FFFF FF80 FFFF FFC0 FFFF FFE0"
  42.         $"FFFF FFF0 FFFF FFFF 1FFF FFFF 1FFF FFFF"
  43.         $"1FFF FFFF 03FF FFFF 03FF FFFF 03FF FF1F"
  44.         $"007F FF07 007F FF00 007F FF"    }    };
  45.  
  46. resource 'ICN#' (129) {
  47.     {    $"FFE0 0000 8030 0000 8010 0000 9FFC 0000"
  48.         $"9006 0000 9002 0000 93FF 8000 9200 C000"
  49.         $"9200 4000 927F F000 9240 1800 9240 1400"
  50.         $"924F 9E00 9248 8200 9248 8200 9248 C200"
  51.         $"9249 2200 F24E 1200 1242 1200 1241 2200"
  52.         $"1E40 C200 0242 0200 0245 0200 03C8 8200"
  53.         $"005F C200 0040 0200 007F FE",
  54.  
  55.         $"FFE0 0000 FFF0 0000 FFF0 0000 FFFC 0000"
  56.         $"FFFE 0000 FFFE 0000 FFFF 8000 FFFF C000"
  57.         $"FFFF C000 FFFF F000 FFFF F800 FFFF FC00"
  58.         $"FFFF FE00 FFFF FE00 FFFF FE00 FFFF FE00"
  59.         $"FFFF FE00 FFFF FE00 1FFF FE00 1FFF FE00"
  60.         $"1FFF FE00 03FF FE00 03FF FE00 03FF FE00"
  61.         $"007F FE00 007F FE00 007F FE"    }    };
  62.  
  63. resource 'FREF' (128) { 'APPL', 0, "" };
  64.  
  65. resource 'FREF' (129) { 'PICS', 1, "" };
  66.  
  67. resource 'ALRT' (500) {
  68.     {40, 31, 170, 481}, 500,
  69.     {    Cancel, visible, sound1,
  70.         Cancel, visible, sound1,
  71.         Cancel, visible, sound1,
  72.         Cancel, visible, sound1    }    };
  73.  
  74. resource 'ALRT' (501) {
  75.     {40, 31, 170, 481}, 501,
  76.     {    OK, visible, sound1,
  77.         OK, visible, sound1,
  78.         OK, visible, sound1,
  79.         OK, visible, sound1    }    };
  80.  
  81. resource 'ALRT' (502) {
  82.     {40, 56, 160, 456}, 502,
  83.     {    OK, visible, sound1,
  84.         OK, visible, sound1,
  85.         OK, visible, sound1,
  86.         OK, visible, sound1    }    };
  87.  
  88. resource 'ALRT' (503) {
  89.     {40, 56, 190, 456}, 503,
  90.     {    OK, visible, sound1,
  91.         OK, visible, sound1,
  92.         OK, visible, sound1,
  93.         OK, visible, sound1    }    };
  94.  
  95. resource 'DITL' (500) {
  96.     {    {10, 125, 30, 325}, StaticText { disabled,
  97.             "PICS Player 1.0 - Steve Sheets" },
  98.         {100, 80, 120, 180}, Button { enabled, "Load PICS" },
  99.         {100, 260, 120, 360}, Button { enabled, "Quit" },
  100.         {40, 10, 90, 440}, StaticText { disabled,
  101.             "This is an example program that demonstrates how to animate "
  102.             "PICS files.  This program was written for MacTutor magazine." } } };
  103.  
  104. resource 'DITL' (501) {
  105.     {    {100, 10, 120, 110}, Button { enabled, "Play Once" },
  106.         {100, 230, 120, 330}, Button { enabled, "Read PICS" },
  107.         {100, 340, 120, 440}, Button { enabled, "Quit" },
  108.         {100, 120, 119, 220}, Button { enabled, "Play Loop" },
  109.         {35, 10, 90, 440}, StaticText { disabled,
  110.             "Name: ^0\n"
  111.             "Number of Frames ^1\n"
  112.             "Select the amount of animation, load PICS or exit the program." },
  113.         {10, 125, 30, 325}, StaticText { disabled, 
  114.             "PICS Player 1.0 - Steve Sheets" } } };
  115.  
  116. resource 'DITL' (502) {
  117.     {    {80, 170, 100, 230}, Button { enabled, "OK" },
  118.         {20, 20, 60, 380}, StaticText { disabled,
  119.             "There was a problem while reading the file \"^0\".  ^1."    }    }    };
  120.  
  121. resource 'DITL' (503) {
  122.     {    {110, 170, 130, 230}, Button { enabled, "OK"},
  123.         {20, 20, 86, 380}, StaticText { disabled,
  124.             "You are running on a Black & White Macintosh, and the PICS file "
  125.             "you selected contains color information.  There may be a problem "
  126.             "when drawing using Quickdraw.  Proceed with caution."    }    }    };
  127.  
  128.  
  129.